home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / BSCRIPTS.CST / 00017_Script_17 < prev    next >
Text File  |  1999-04-25  |  1KB  |  37 lines
  1. -- ⌐ 1998 @radical.media, inc. & Concurrent New Media Group, L.L.C.
  2. -- Developed for Bombardier, Inc.
  3. --
  4. -- All programming developed by: 
  5. -- Robert Fabricant, Valerie Valoueva, Ossi Shaked, 
  6. -- Henry Sauvageot, Chris Howell & Chris Girand
  7. --
  8. -- Use of this code by parties other than @radical.media, inc. or their
  9. --agents 
  10. -- without the express written consent of @radical.media, inc. AND Concurrent 
  11. -- New Media Group, L.L.C. is strictly prohibited.
  12. ------------------------------------------------------
  13.  
  14.  
  15. on prepareFrame
  16.   global gSelct,gImage, gRtrnPln,gTourCast,NumOfQTVRMenuItems
  17.   
  18.   set qtvrPlaneSprNum = getSpriteNumFromMemberName("qtvranchor")+1
  19.   set range = NumOfQTVRMenuItems - 1
  20.   set spriteCastNum = the castnum of sprite qtvrPlaneSprNum
  21.   
  22.   set gRtrnPln="EXT"
  23.   
  24.   --tour the plane menu sprites
  25.   repeat with i=qtvrPlaneSprNum to qtvrPlaneSprNum+range
  26.     puppetSprite i, true
  27.     set the visible of sprite i to true
  28.   end repeat
  29.   
  30.   --select the exterior button
  31.   if gSelct<> qtvrPlaneSprNum+range then 
  32.     set gSelct = qtvrPlaneSprNum+range
  33.     set gImage = the castnum of sprite gSelct 
  34.     set the castnum of sprite gSelct to gImage+2*range
  35.   end if
  36.   
  37. end